5 GOTO10010
10 DATAaý-bý,(a+b)(a-b),10,20
20 DATAaþñbþ,(añb)(aýÅab+bý),10,30
30 DATAa”-b”,(a-b)(a+b)(aý+bý),20,40
40 DATAa”+b”,(aý+ûïab+bý)(aý-ûïab+bý),30,50
50 DATAaýñ2ab+bý,(añb)ý,40,60
60 DATAaþñ3aýb+3abýñbþ,(añb)þ,50,70
70 DATA(añb)ýÅ4ab,(aÅb)ý,60,80
80 DATAaý+bý+cý+2bc+2ca+2ab,(a+b+c)ý,70,90
90 DATAa”+aýbý+b”,(aý+ab+bý)(aý-ab+bý),80,100
100 DATAaþ+bþ+cþ-3abc,(a+b+c)(aý+bý+cý-bc-ca-ab),90,110
110 DATA(ac-bd)ý+(ad+bc)ý,(aý+bý)(cý+dý),100,120
120 DATA(ac+bd)ý+(ad-bc)ý,(aý+bý)(cý+dý),110,130
130 DATA(ac+bd)ý-(ad+bc)ý,(aý-bý)(cý-dý),120,140
140 DATA(ac-bd)ý-(ad-bc)ý,(aý-bý)(cý-dý),130,150
150 DATAaý(b-c)+bý(c-a)+cý(a-b),-(b-c)(c-a)(a-b),140,160
160 DATA(b-c)þ+(c-a)þ+(a-b)þ,3(b-c)(c-a)(a-b),150,170
170 DATAa”+b”+c”-2býcý-2cýaý-2aýbý,(a+b+c)(b-c-a)(c-a-b)(a-b-c),160,180
180 DATAxý+(a+b)x+ab,(x+a)(x+b),170,190
190 DATAxþ+(a+b+c)xý+(bc+ca+ab)x+abc,(x+a)(x+b)(x+c),180,200
200 DATAaý-bý-cý-2bc,(a+b+c)(a-b-c),190,210
210 DATA(a+b+c)(bc+ca+ab)-abc,(b+c)(c+a)(a+b),200,220
220 DATA(a+b+c)þ-(aþ+bþ+cþ),3(b+c)(c+a)(a+b),210,230
230 DATAaþ(b-c)+bþ(c-a)+cþ(a-b),-(b-c)(c-a)(a-b)(a+b+c),220,230
10010 MODE8:DIM:x=10:y=230:r=x
10020 DEFCHR$(255)="A6AAAA9280"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;;TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150